home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / mui32dev.lha / MUI / Developer / Modula / txt / MuiSupport.def < prev    next >
Text File  |  1995-12-15  |  1KB  |  60 lines
  1. DEFINITION MODULE MuiSupport;
  2.  
  3. (*$ DEFINE Locale:=FALSE *)
  4.  
  5. (*
  6. **  MuiSupport 2.0
  7. **
  8. **  done by Christian "Kochtopf" Scholz
  9. **
  10. **  just the DoMethod-PROCEDURE because there was none shipped with M2Amiga
  11. **  (or i haven't found it ;-)
  12. **
  13. **  Note that DoMethod returns nothing ( e.g. for setting up a Notify )
  14. **  and DOMethod does ( e.g. for the event-loop )
  15. **
  16. **  Then there is the fail-PROCEDURE (orig. defined in demo.h)
  17. **  A init-PROCEDURE is not needed.
  18. **
  19. **  $Log: MuiSupport.def $
  20. # Revision 1.2  1995/12/15  16:37:53  olf
  21. # - applied changes from Stefan Schulz
  22. # - cleanup of IMPORT section
  23. #
  24. # Revision 1.1  1995/09/25  15:32:52  olf
  25. # Initial revision
  26. #
  27. # Revision 1.6  1994/08/16  20:33:19  Kochtopf
  28. # StrPtr aus Arts importiert
  29. #
  30. # Revision 1.5  1994/08/11  17:00:11  Kochtopf
  31. # *** empty log message ***
  32. #
  33. # Revision 1.4  1994/02/09  14:50:03  Kochtopf
  34. # Versionsnummer in 2.0 geaendert.
  35. #
  36. # Revision 1.3  1994/02/02  09:37:18  Kochtopf
  37. # app bei fail in VAR-Parameter geaendert.
  38. #
  39. # Revision 1.2  1994/02/01  16:49:10  Kochtopf
  40. # kleine Veraenderungen.
  41. #
  42. **
  43. *)
  44.  
  45. FROM Arts       IMPORT  StrPtr;
  46. FROM MuiD       IMPORT  APTR ;
  47.  
  48. IMPORT R;
  49.  
  50. PROCEDURE DoMethod(obj{R.A2} : APTR; msg{R.A1} : APTR);
  51. PROCEDURE DOMethod(obj{R.A2} : APTR; msg{R.A1} : APTR) : LONGINT;
  52. (*$ IF Locale *)
  53. PROCEDURE fail(VAR app : APTR; str : StrPtr);
  54. (*$ ELSE *)
  55. PROCEDURE fail(VAR app : APTR; str : ARRAY OF CHAR);
  56. (*$ ENDIF *)
  57.  
  58. END MuiSupport.
  59.  
  60.